home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 May: Tool Chest / Developer CD Series May 1996 (Tool Chest) (Apple Computer) (1996).iso / Tool Chest / Text / WASTE / WASTE 1.1.2 Distribution / Demo Source / WEDemoDrags.p < prev    next >
Encoding:
Text File  |  1995-10-12  |  1.1 KB  |  44 lines  |  [TEXT/CWIE]
  1. unit WEDemoDrags;
  2.  
  3. { WASTE DEMO PROJECT: }
  4. { Drag Handlers }
  5.  
  6. { Copyright © 1993-1995 Marco Piovanelli }
  7. { All Rights Reserved }
  8.  
  9. interface
  10.     uses
  11.         WEDemoIntf;
  12.  
  13.     function MyTrackingHandler (message: DragTrackingMessage;
  14.                                     window: WindowRef;
  15.                                     refCon: Ptr;
  16.                                     drag: DragReference): OSErr;
  17.     function MyReceiveHandler (window: WindowRef;
  18.                                     refCon: Ptr;
  19.                                     drag: DragReference): OSErr;
  20.  
  21. implementation
  22.  
  23.     function MyTrackingHandler (message: DragTrackingMessage;
  24.                                     window: WindowRef;
  25.                                     refCon: Ptr;
  26.                                     drag: DragReference): OSErr;
  27.     begin
  28.         if (window <> nil) & (WindowPeek(window)^.windowKind = userKind) then
  29.             MyTrackingHandler := WETrackDrag(message, drag, DocumentPeek(window)^.we)
  30.         else
  31.             MyTrackingHandler := noErr;
  32.     end;  { MyTrackingHandler }
  33.  
  34.     function MyReceiveHandler (window: WindowRef;
  35.                                     refCon: Ptr;
  36.                                     drag: DragReference): OSErr;
  37.     begin
  38.         if (window <> nil) & (WindowPeek(window)^.windowKind = userKind) then
  39.             MyReceiveHandler := WEReceiveDrag(drag, DocumentPeek(window)^.we)
  40.         else
  41.             MyReceiveHandler := noErr;
  42.     end;  { MyReceiveHandler }
  43.  
  44. end.